home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
database
/
moviessh.zip
/
STORIES.BAS
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1996-09-10
|
23KB
|
293 lines
SOUND1
QUIT>
GETANOTHER
CUSTOMERb
ADDRESSg
STATE
PHONEC
SUBDATE
CREDITCARD
CARDTYPE*
CARDNUMBER
EXPDATE
LICENSE
ITEMONE
PRICEONE
ITEMTWO
PRICETWO7
ITEMTHREEC
PRICETHREE
ITEMFOUR
PRICEFOUR
ITEMFIVE
PRICEFIVE
ITEMSIX<
PRICESIXH
ITEMSEVEN
PRICESEVEN
SUBTOTAL(
TOTALv
CHOICE
LEAVEONE
RETRIEVEONE
MESSAGETO
LINEONE;
LINETWOH
LINETHREEV
CALENDAR
MESSAGEFROM,
MESSAGECVS
SAVEMESSAGE
DISPLAYIT
WHATTODOm
PRINTIT
PRINT
NEXTONE
SEARCHFOR
RANDON
RETRIEVE2
RETRIEVETWO
RETRIEVEo
GETIT
DISPLAY
TALLY
SKIPTALLYb
SKIPHEADER
PAGEADVANCE
PAGERADVANCE,
LINETWOCHECKr
LINETW0CHECKr
OPENFILE\
SKIPLINETWOCHECK2
SKIPLINETHREECHECKp
LINETHREECHECKV
SAVEORNOT
SAVEO6
SKIPBLOAD
ORIGMESSAGETO
ORIGLINEONE8
ORIGLINETWO
ORIGLINETHREE$
ORIGCALENDARb
ORIGMESSAGEFROM
ERASEALL<
FINDIT
SLEEP2Y
ERASEDh
FINDNEXT
SAVEORNOT2]
SKIPTALLY2
ORIGLINE3
NUMBER
DONECOUNTINGx
FOUND
SKIPPRINT
INCREASE0
SKIPTHREE
SKIPFOUR
SKIPTFOUR
COUNTIT
TWOT
THREEN
ERRORHANDLER8
AWAITKEY
MENUB
cCLEAR
ERASEONE~
ERASED2@
ALTER
WHATATODO
SAVED
HOLDON
HOLDNO
MAIN2
ENTERCODE
CODEIN+
NOTEMPTY
NEWCODE
CHANGE
SKIPNOTEMPTYn
LINEFOURe
LINEFIVEI
LINESIX
LINESEVEN
LINEEIGHT
ORIGLINEFOUR
LINEFOURCHECK
SKIPLINEFOURCHECK^
ORIGLINEFIVE
ORIGLINESIX
ORIGLINESEVEN
ORIGLINEEIGHT
SKIPLINEFIVECHECK
LINEFIVECHECK
SKIPLINESIXCHECK
LINESIXCHECK!
SKIPLINESEVENCHECK7
LINESEVENCHECK
SKIPLINEEIGHTCHECKX
LINEEIGHTCHECK
SKIPTHECODE
ENTERMORE
LINEE
WHICH
SELECT
MONTH
YEAR
SHAREWARE
SKIP20TH
SKIPEIGHT
YEAROK
REPLY
KEEPTRACK
GETLAST
GETHIGHEST|
HIGHEST
GETNEXT
DUPJ
INKEY
RETURNDUP
ALTER1
ALTER2
ALTER3
ALTER4
ALTER5
ALTER6
ALTER7
ALTER8
ALTER9
SKIPCLOSE
SKIPLINES
LINES
STORY
WHATISIT
SKIPCALENDAR
MAINSOUND1
NOMORE
MENU.000
PRINTER RESET. PRESS 2 TO RETRIEVE
WRONG ENTRY "
routine to RETRIEVE message
CRITERIA.ENT
TEMPO2d
TEXT.RET
STORIES.REC"d
ALL RECORDS PRINTED "
NONE FOR "
?
ARE YOU SURE YOU WISH TO ERASE THIS STORY PAGE(S)? Y/N?
TEXT.RET
THIS SINGLE RECORD HAS BEEN ERASED
ARE YOU SURE YOU WISH TO ERASE THE ENTIRE YEAR? Y/N?
TEXT.RET
STORIES.REC"d
ALL OF ST0RY HAS BEEN ERASED"
LINES.000"
ENTER 60, 66, OR 1 PLEASE!
"
TEXT.RET
MOVIE STORY LINES"
TEXT.ENT
TOO LONG
__________________________________________________ "
PLEASE ENTER DATA!
________________________
__________________________________________________
TOO LONG
__________________________________________________ "
THIS ENDS ENTRY - Y/N?
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
TOO LONG
__________________________________________________ "
THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
TOO LONG
__________________________________________________ "
THIS ENDS ENTRY - Y/N?
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
TOO LONG
__________________________________________________ "
THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
TOO LONG
__________________________________________________ "
THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
TOO LONG
__________________________________________________ "
THIS ENDS ENTRY - Y/N?
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
TOO LONG
__________________________________________________ "
THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
_________________________"
THEN PLEASE ENTER YOUR TEXT!
______________________________
Press ENTER to retain same title, or type NEW title!
USE 50 CHARACTERS AS A MAXIMUM
__________________________________________________ "
ENTER MOVIE TITLE PLEASE! "
__________________________________________________
__________________________________________________
PRESS S TO SAVE, OR R TO REDO MESSAGE!
STORIES.REC"d
IF CODE% > 30 THEN BEEP: BEEP: GOTO SHARE 'Activate this line for shareware version.
TEXT.RET
Printer NOT ON, or OUT OF PAPER. Check and press any key to continue!
SHARE.001"
TEMPO2d
STORIES.REC"d
DUP.000"
NO MORE MATCHES "
"